home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / SYS / s / ToggleLVFont.rush < prev    next >
Text File  |  1996-09-26  |  386b  |  20 lines
  1. /*
  2. ** $VER: ToggleLVFont.rush 37.2 (2.7.94)
  3. **
  4. ** Toggle the listview font between two different font.
  5. **
  6. ** Written by Douglas Keller
  7. */
  8.  
  9. if( address() == "REXX" ) then address "RUSH.1"
  10.  
  11. options results
  12.  
  13. 'getlistviewfont'
  14. parse var result fontname fontsize
  15.  
  16. if fontname ~= "courier.font" then
  17.     'setlistviewfont font=courier.font size=13'
  18. else
  19.     'setlistviewfont font=topaz.font size=8'
  20.